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COMSUSEREX ; F4P COMPATIBILITY = USER EXIT PROCEDUR 15-SEP-1984 23:48:50 VAX/VMS Macro V04-00 Page 1 
1-004 Fae Va Be dr Tt te 
TITLE COMSUSEREX ; F4P COMPATIBILITY = USER EXIT PROCEDURE SPECIFICAT 
“IDENT /1-004/ : File: COMUSEREX.MAR Edit: SBL1004 


MARA ARAARARAARARASASAAASALELARS LESSER REEL LESSER EERE EERE RRR REESE ECE R RESALE SY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 3 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


TH 


# 
it a 
w * 
« 
% 
® 0 * 
* N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
* ION OF THE ABOVE gid NOTICE. THIS SOFTWARE OR ANY OTHER * 
” THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. * 
& oa 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
” CORPORATION. 8 
% * 
® 
we * 
Y * 
* oa 
** ” 
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JFACILITY: FORTRAN COMPATIBILITY LIBRARY 
i ABSTRACT: 


USEREX allows specification of a user procedure to be called at 
image exit 


| 
; 
; ENVIRONMENT: | 
; User access mode, AST re-entrant | 


; VERSION: 0 | 
> HISTORY: | 


; AUTHOR: ; 
: Peter Yuo, 7-Sep-77: Version 0 


; MODIFIED BY: 
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3 F4P COMPATIBILITY = USER EXIT PHocEDUR 15-S $6P- 1388 $3: $8: 22 ypacyas Macro V04-00 
HISTORY ; Detailed Current Edit History 6=-SEP-1 FORRTL.SRCJ COMUSEREX. MAR; i 
u i: -SBTTL HISTORY ; Detailed Current Edit History 
5 
0 8 ; Edit History for Version 01 of USEREX 
000 2 ; 
000 8 
000 59 ; 0-3 = Push address. TNH 19-Dec-77 
0000 60 ; 0-5 = Change name to COMUSEREX.MAR. JMT S-Jan-78 
0000 61 ; 0-6 = Rewrote entire routine so it will work. JMT 29-Jan-78 
444 66 ; 1-001 = Update version number and copyright tengtice. J JBS 16-NOV-78 
000 63 ; 1-0 ¢ - Add ''_"* to the PSECT directive. 
4 64 ; 1-3 - Explicitly declare externals. sai BF havei979 
0 65 ; 1-004 = Use general mode addressing. SBL 30-Nov-1981 


we 3 


Be Oe Oe Oe OH SH Se Se Se Se Se Se Se Se ee Se Se Se Se Se Sear Se Bete Seas 


#2 


SEREX 23:4 :50 
BECLARATIONS SEP-1984 10:53:45 LCFORRTL.SRCICOMUSEREX. MAR; 1 


~SBTTL DECLARATIONS 


8 | 
F4P COMPATIBILITY = USER EXIT PROCEDUR 13-SEP-19 4 AX/VMS Macro V04-00 Page dy | 


INCLUDE FILES: 


; EXTERNAL SYMBOLS: 


-DSABL GBL 
~-EXTRN FORSSGE 
EXTRN FORSSSIG_ 


; MACROS: 


: PSECT DECLARATIONS: 


0000 -PSECT _F4PCOMPATSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT 


; EQUATED SYMBOLS: 


00000004 proc_entry_pt = 4 3 procedure_entry_point.rla.r 


NAW EWN 0 OONAU EWN OO OONOUE WN OOa~nN 
ee 


OWN STORAGE: 


SOOCOCOCOCOOCSOSOSCOOOSOSOOOCOSOOOOCOOSOOOOSoOo 
SOCOCCOCOSCOOOOCOOOOOOOCOOOCOOOOOOoOoOo 
peleoleleleleoleleleleoleleleleleleleoleleleleleleleleolelelelel ela) 


OOOO 000 0000000909090 0908 “I NIN NII NINO OO 


Sooo Coooooooooooooooo 


— 


~~ 
_—— 


Be Be Oe Be Be Oe we OH Oe Oe Se Se SESE Se Se Se Se Se Se Se Se Se Ge Ge TH Se SH Se Ge SH Se Se Se Se Se Se Se Se Se Sse ee Se Se Se Se Se Se Se Se Se Se Seas se seas 


——_—__----- +d >>> 


C 4 
COMSUSEREX F4P COMPATIBILITY = USER EXIT PROCEDUR 15-SEP-1984 23:48:5 AX/VMS Ma 
1-004 int 6 Be 0:5 a3 t Cie 


USEREX = Main Entry Po -SEP-19 
-SBTTL USEREX = Main Entry Point 


v04-00 Page 4 
FORRTL.SRCJCOMUSEREX.MAR; 1 (4) 


Sooo 
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se9 
: FUNCTIONAL DESCRIPTION: 


; COMPLETION CODES: 
NONE 
: SIDE EFFECTS: 


SIGNAL_STOPs insufficient virtual memory, 
and fatal internal error if can't establish exit handler. 


0 
00 ; 
00 ; 1) Call FORSGET_VM to get the address of a termination control 
00 ; block of Length lLongwords (20 bytes) from virtual memory. 
00 3 2) Insert the address of user specified termination procedure 
00 ; into second longword of the termination control block and the 
00 ; number of termination pees (1) into low byte of its 
00 ; third longword. Point the fourth word at the fifth word. 
4 ; 3) Call SOCLTRM to declare termination h-rdler. 
00 : CALLING SEQUENCE: 
3 : CALL USEREX (procedure_entry_point.rla.r) 
00 : INPUT PARAMETERS: 
oo : procedure_entry_point.rla.r 
00 : IMPLICIT INPUTS: 

; NONE 

> OUTPUT PARAMETERS: 

; NONE 

: IMPLICIT OUTPUTS: 

3 NONE 


09 ENTRY USEREX, “M<> 


> Call FORSSGET_VM 


OOOCOCCCOSOOCOSOOSO? BOO OOCOOOOOCSooOoooO 
DOCCCOCOCOOCOCCOOOV DOO OCOOOOOoOOCoCoOoOOo 


PUSHL #20 : get 20 bytes 
CALLS #1, G*FORSSGET_VM ; from virtual memory 
MOVL RO. R1 ; RO=R1 => allocated memory 


Insert address of user specified procedure and number of termination 
argument (=1) into TCB 
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0 
; F4P COMPATIBILITY = - EXIT PROCEDUR 15-SEP-1984 75 AX/VMS o v04-00 Page 5 
USEREX = Main Entry Po 6-SEP-1984 8; 8: 23 YPORRIL. See SCOMUSE EREX.MAR;1 ° (4) 
eB 
81 05 6 1 § TSTL (R1)+ ; inse over first entry 
81 04 AC 00 : ! 8 MOVL proc entry_pt(AP), (R1) +: neers -tddress of users exit 
81 01 DO 0014 160 MOVL #1, (R1)+ : anche will be called with one argument 
61 O04 Al DE i 2% MOVAL 4(R1), (R1) ; namely, the address of a word con- 
is 196 ; ; taining reason for termination 
1B 164 : Call DCLEXH to declare termination handler 
Sg ee 
Bo1e 183 SOCLEXH_S (RO) ; RO = return code 
07 50 ~=2C€EB 4 198 BLBS “RO, 108 : branch if success 
00000000'GF 00 F8 8 ; 19 CALLS #0, G*FORSSSIG_FATINT ; signal, never to return 
04 Q02E 171 10$: RET ; RO = completion status 
002F 1% 
OO02F 17 .END 
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E 
COMSUSEREX >; F4P COMPATIBILITY = USER EXIT pRocepur 15-SEP~1 138¢ $3: $8: 39 ey ct v04-00 Page 6 
nN. table 6-SEP=-1 74 FORRTL SRE ICOM USEREX.MAR; 1 (4) 
ORSSGET -yn eeeeenee x 88 
FORsSciGe FATIN NT eeeteere 8 Xx 0 
PROC_ENTRY_PT = 00000004 
SY SEDELEXH eeerener G 01 
USEREX 00000000 RG 01 
$ewwowoeececcecce + 
! : Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 ( 0.) OO ¢ 0.) NOPIC USR CON ABS - LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_F SPCOMPATSCODE OOOO0002F ( 47.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE 


Phase Page faults CPU Time Elapsed Time 
Initialization 32 00 +00 00-08 00:00:00.90 
cennend processing 117 00:00:00.5 00:00:04.36 
99 00:00:00.56 00:00:03.09 
eH, table sort 0 00:00:00.01 00:00:00.01 
Pass 2 44 00:00:00.37 00:00:01.16 
Symbol table output 00:00:00.01 00:00:00.01 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 298 00:00:01.58 00:00:09.55 


The working set Limit was 1050 pages. 

1915 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 5 non-local and 1 Local symbols. 
173 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

2 pages of virtual memory were used to define 2 macros. 


Macro Library name Macros defined 
“S25SSDUAZB:(SYSLIBISTARLET.MLBs2 0 SS s 
12 C£TS were required to define 2 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:COMUSEREX/NBJ=OBJ$:COMUSEREX MSRC$:COMUSEREX/UPDATE=(ENHS: COMUSEREX) 
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